3 IF PEEK(49152)=32 AND PEEK(49153)= 186 THEN SYS49152:GOTO5 4 LOAD"RE7.O",8,1 5 DIM F(30),B(30),C(30),BC(30) 6 FAST 10 POKE53280,6:POKE53281,6:PRINT"[147][159]"CHR$(14)CHR$(8) 20 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 21 PRINT" [221] [221]" 22 PRINT" [221] [210][193][205] [197]XPANSION [214]1.0 [221]" 23 PRINT" [221] [221]" 24 PRINT" [221] BY [221]" 25 PRINT" [221] [221]" 26 PRINT" [221] [199]LENN [210]AUDINS [221]" 27 PRINT" [221] [221]" 29 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 30 AD=0:BK=0:ED=256*256:SC=1024:CL=55296:CT=1 35 GOSUB 50 40 GOTO 100 50 F(CT)=AD:B(CT)=BK 51 STASH 1000,SC,AD,BK:AD=AD+1000:IF AD>ED THEN AD=AD-ED:BK=BK+1 54 C(CT)=AD:BC(CT)=BK:CT=CT+1 55 STASH 1000,CL,AD,BK:AD=AD+1000:IF AD>ED THEN AD=AD-ED:BK=BK+1 56 RETURN 60 FETCH 1000,SC,F(R),B(R):FETCH 1000,CL,C(R),BC(R):RETURN 100 PRINT"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 101 PRINT "[221] [221]" 102 PRINT "[221][160] [212]HIS IS [198]REEWARE...... [221]" 103 PRINT "[221] [221]" 104 PRINT "[221] [201]F YOU FIND THIS [221]" 105 PRINT "[221] PROGRAM USEFUL, [201] ASK [221]" 106 PRINT "[221] THAT YOU SEND A 5 OR [221]" 107 PRINT "[221] 10 DOLLAR CONTRIBUTION [221]" 108 PRINT "[221] IN RETURN [201] WILL SEND [221]" 109 PRINT "[221] YOU THE SOURCE CODE [221]" 110 PRINT "[221] + [198]ULL [196]OCUMENTATION. [221]" 111 PRINT "[221] [221]" 112 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 115 GOSUB50 120 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 121 PRINT "[221] [221]" 122 PRINT "[221][160] [201]F YOU DISTRIBUTE A [221]" 123 PRINT "[221] PROGRAM USING THIS, [221]" 124 PRINT "[221] PLEASE PLACE A [221]" 125 PRINT "[221] MESSAGE WITHIN STATING [221]" 126 PRINT "[221] THAT YOU USED THIS [221]" 127 PRINT "[221] EXTENSION. [221]" 128 PRINT "[221] [221]" 129 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 130 GOSUB 50 140 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 141 PRINT "[221] [221]" 142 PRINT "[221] [211]END [195]ONTRIBUTIONS [221]" 143 PRINT "[221] AND A [211][193][211][197] TO: [221]" 144 PRINT "[221] [221]" 145 PRINT "[221] [199]LENN [210]AUDINS [221]" 146 PRINT "[221] 1818 [207]LD [212]ANNERY [193]CRES [221]" 147 PRINT "[221] [200]UDSON [207]HIO 44236 [221]" 148 PRINT "[221] [221]" 149 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 150 GOSUB 50 160 PRINT"[147][155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 161 PRINT "[221] [210][197] ADDS 7 [195]128 COMMANDS TO THE 64 [221]" 162 PRINT "[221] [212]HEY ARE AS FOLLOWS: [221]" 163 PRINT "[221] [221]" 164 PRINT "[221] [211][212][193][211][200] [198][197][212][195][200] [221]" 165 PRINT "[221] [211][215][193][208] [214][197][210][198] [221]" 166 PRINT "[221] [198][193][211][212] [211][204][207][215] [221]" 167 PRINT "[221] [195][193][212] OR [196][201][210] [221]" 168 PRINT "[221] [221]" 169 PRINT "[221] [212]HE DISCUSSION OF EACH FOLLOWS... [221]" 170 PRINT "[221] [221]" 171 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 172 GOSUB 50 175 PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 176 PRINT "[221] [221]" 177 PRINT "[221] [211][212][193][211][200] BYTES,[200]RAM,[197]RAM,BANK # [221]" 178 PRINT "[221] [198][197][212][195][200] BYTES,[200]RAM,[197]RAM,[194]ANK # [221]" 179 PRINT "[221] [211][215][193][208] BYTES,[200]RAM,[197]RAM,[194]ANK # [221]" 180 PRINT "[221] [214][197][210][198] BYTES,[200]RAM,[197]RAM,[194]ANK # [221]" 181 PRINT "[221] [221]" 182 PRINT "[221] [194]YTES = [206]UMBER OF BYTES [221]" 183 PRINT "[221] TO TRANSFER. [221]" 184 PRINT "[221] [200]RAM = [200]OST [210]AM [193]DDRESS [221]" 185 PRINT "[221] [197]RAM = [197]XPANSION [210]AM [193]D. [221]" 186 PRINT "[221] [194]ANK #= [197]XPANSION [194]ANK # [221]" 187 PRINT "[221] [221]" 188 PRINT "[221] [193]LL THESE COMMANDS ARE OUTLINED [221]" 189 PRINT "[221] BY YOUR EXPANSION MANUAL EXCEPT [221]" 190 PRINT "[221] FOR [214][197][210][198]. [214][197][210][198] USES THE [210][197][195] [221]" 191 PRINT "[221] VERIFY COMMAND. [214][197][210][198] COMPARES [221]" 192 PRINT "[221] THE COMPUTERS MEMORY TO THE [221]" 193 PRINT "[221] SPECIFIED EXPANSION RAM. [221]" 197 PRINT "[221] [221]" 198 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 200 GOSUB 50 205 PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 206 PRINT "[221] [221]" 207 PRINT "[221] [198][193][211][212] - [198][193][211][212][160]SPEEDS UP THE 6502 [221]" 208 PRINT "[221] BY BLANKING THE SCREEN. [221]" 209 PRINT "[221] [221]" 210 PRINT "[221] [211][204][207][215] - [211][204][207][215][160]RETURNS THE SCREEN [221]" 211 PRINT "[221] AFTER A [198][193][211][212][160]IS ISSUED. [221]" 212 PRINT "[221] [221]" 213 PRINT "[221] [195][193][212] ( OR [196][201][210] ) - [195][193][212] CATALOGS [221]" 214 PRINT "[221] THE DISK IN [221]" 215 PRINT "[221] [196]RIVE 8. [221]" 216 PRINT "[221] [221]" 217 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 220 GOSUB 50 225 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 226 PRINT "[221] [221]" 227 PRINT "[221] [210][197] ALSO CHANGES [194][193][211][201][195] IN UNSEEN [221]" 228 PRINT "[221] WAYS. [212]HE INPUT PROMPT IS GONE. [221]" 229 PRINT "[221] [193]LSO [193][211][195] OF A NULL STRING IS [221]" 230 PRINT "[221] NOW EQUAL TO 0. [221]" 231 PRINT "[221] [198]INALLY, FOR ALL THE MACHINE [221]" 232 PRINT "[221] LANGUAGE PROGRAMMERS, THE FULL [221]" 233 PRINT "[221] DOCUMENTATION WILL INCLUDE WAYS [221]" 234 PRINT "[221] TO ACCESS THE ROUTINES FROM [205][204]. [221]" 235 PRINT "[221] [210][197] CHANGES THE [194][193][211][201][195] [210][197][193][196][217]. [221]" 236 PRINT "[221] PROMPT TO [210][193][205]... [212]HIS TELLS [221]" 237 PRINT "[221] YOU THAT IT IS ACTIVE. [193]LSO [221]" 238 PRINT "[221] WHEN USING THIS WITH A 1700 THE [221]" 239 PRINT "[221] BANK NUMBERS ARE LIMITED TO 0 [221]" 240 PRINT "[221] OR 1. [212]O DETERMINE WHETHER [221]" 241 PRINT "[221] THERE IS A 1750 OR 1700 PRESENT [221]" 242 PRINT "[221] [208][197][197][203](49361). 0 MEANS A 1700 [221]" 243 PRINT "[221] [207]THERWISE IT IS 1750. [221]" 244 PRINT "[221] [221]" 245 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 246 GOSUB 50 300 PRINT"[147]":SLOW 310 FORR=1TOCT-1:GOSUB60 315 GETA$:IFA$=""THEN 315 320 NEXTR 330 GOTO310